home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 87 / 087.d81 / doodle show (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  143 lines
  1. 100 poke53280,0:poke53281,0
  2. 140 poke55,0:poke56,64:clr:a$=""
  3. 142 dv=peek(186):ifdv<8thendv=8
  4. 143 dimr$(12),an$(12,14),e(12)
  5. 145 gosub60000
  6. 155 def fnd(i)=20-(len(an$(x,i))/2)
  7. 160 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  8. 180 sys57812"title.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  9. 190 poke251,64:poke252,96:poke253,92:sys51456
  10. 195 poke252,96:poke253,92:sys51459
  11. 197 sys57812"wp.o $c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  12. 198 sys57812"inpany/copy",dv,0:poke780,0:poke781,60:poke782,3:sys65493
  13. 200 ip=828:unpack=51456:hgr=51459:cp=928
  14. 210 bo=53280:bg=53281
  15. 220 open2,dv,2,"doodle info,p,r"
  16. 222 j=1:k=0:fori=0to1:sysip,2,40:i=st
  17. 224 ifa$="*"thenj=j+1:k=0:goto228
  18. 226 k=k+1:an$(j,k)=a$
  19. 228 next:close2
  20. 240 np=j:forx=1tonp:r$(x)="doodle"+str$(x)+".shp"
  21. 250 next
  22. 260 syshgr
  23. 270 forx=1tonp
  24. 280 gosub1810
  25. 285 fh=0:ifleft$(r$(x),2)="u."thenfh=1
  26. 290 sys57812r$(x),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  27. 300 e(x)=peek(53281)
  28. 310 gosub1910:ifa$="q"ora$="[209]"thengosub1250
  29. 312 gosub2000
  30. 340 kk=0:poke198,0
  31. 360 kk=kk+1:geta$
  32. 370 ifa$="q"ora$="[209]"thengosub1250
  33. 380 ifa$="s"ora$="[211]"then470
  34. 385 ifa$="p"ora$="[208]"thengosub3000:goto340
  35. 390 ifa$="b"ora$="[194]"thenpokebo,(peek(bo)+1)and15:goto340
  36. 400 ifa$=" "then420
  37. 419 ifkk<400then360
  38. 420 syshgr:print"[147]":poke198,0:next x
  39. 430 goto270
  40. 470 sys hgr
  41. 480 pokebo,0:pokebg,0
  42. 560 print"[147][159] [212]his will save the picture as a"
  43. 562 print" [196][207][207][196][204][197]! file."
  44. 564 print" [211]ource drive is"dv
  45. 566 print"[159] [196]estination drive # ([154]8[159] - [154]12[159]): ";:l9%=2:gosub50000:de=val(q9$)
  46. 568 ifde<8orde>12then560
  47. 590 print"[159] [198]ilename: dd";:l9%=14:gosub50000:ifq9$=""then1110
  48. 620 nm$=left$("dd"+q9$,14)
  49. 820 open15,de,15,"r0:"+nm$+"="+nm$:input#15,er,er$:close15
  50. 830 ifer=63thengosub1170:goto1110
  51. 950 sys57812nm$,de:poke193,0:poke194,92:poke174,0:poke175,128:sys62954
  52. 980 open15,8,15:input#15,er,er$,y$,z$:close15
  53. 990 iferthengosub1170:goto490
  54. 1030 pokebo,0:pokebg,0
  55. 1050 print" [211]uccessful save!"
  56. 1060 fort=1to2000:next
  57. 1110 syshgr:goto340
  58. 1170 print" [196]isk error!
  59. 1180 [151]214,10:[153]
  60. 1190 a$[178]"print#valrror #"[170][196](er)[170]"print#,"[170]er$
  61. 1200 x%[178]22[171][195](a$)[173]2:[153][163]x%);a$
  62. 1210 [151]214,21:[153]
  63. 1220 [153]"open (NULL)ress (NULL)(NULL)atnlenvalopen to continue."
  64. 1230 [161]a$:[139]a$[179][177]" "[167]1230
  65. 1240 [142]
  66. 1250 o[178][194](53270)[175]16
  67. 1255 [139]o[167][158]51459
  68. 1260 [151]bo,0:[151]bg,0
  69. 1270 [153]"load":[151]214,11:[153]:[153]"cont  (NULL)uit? (ycont/ncont)":[151]198,0
  70. 1280 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]1280
  71. 1290 [139]a$[178]"y"[167]1330
  72. 1295 [139]o[167][158]51459
  73. 1300 [142]
  74. 1330 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  75. 1340 [139]er[179][177]63[167][153]"load":[128]
  76. 1350 [153]"loadstopload"[199](34)"hello connect"[199](34)",8"
  77. 1360 [153]"run"
  78. 1370 [151]631,13:[151]632,13:[151]198,2:[128]
  79. 1770 [153]"";
  80. 1810 [151]bg,9:[151]bo,9
  81. 1820 [153]"loadstoportantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  82. 1830 [129]qx[178]1[164]15
  83. 1840 [153]"(NULL)"[163]38)"(NULL)":[130]
  84. 1850 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  85. 1860 [129]lx[178]217[164]242:[151]lx,([194](lx)[176]128):[130]
  86. 1870 [153]""
  87. 1880 [129]i[178]1[164]13
  88. 1882 [153][163][165]d(i))an$(x,i)
  89. 1886 [130]
  90. 1900 [142]
  91. 1910 kk[178]0
  92. 1915 [151]214,16:[153]:[153]"print     (NULL)hile the slide is showing..."
  93. 1916 [153]"       peek sys- changes border color"
  94. 1918 [153]"       (NULL) sys- takes you to (NULL)(NULL)right$(NULL)(NULL) routine"
  95. 1919 [153]"       (NULL) sys- takes you to (NULL)atn(NULL)val routine"
  96. 1920 [153]"       (NULL) sys- quits to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  97. 1925 [151]214,23:[153]
  98. 1930 [153]"print(NULL)ress (NULL) to quit - atnny other to continueon"
  99. 1940 kk[178]kk[170]1:[161]a$:[139]a$[179][177]""[176]kk[177]1000[167][142]
  100. 1950 [137]1940
  101. 2000 [153]"load";:[139]fh[167][151]254,0:[158]ba:[137]2040
  102. 2020 [151]bg,15:[151]bo,15:[151]251,64:[151]252,96:[151]253,92
  103. 2030 [158]un
  104. 2040 [151]252,96:[151]253,92:[158]hgr:[142]
  105. 2050 [142]
  106. 3000 [158]hgr:[151]bo,0:[151]bg,0
  107. 3010 [153]"load"
  108. 3020 [159]4,4:[152]4:[160]4
  109. 3030 [139]st[179][177][171]128[167]3070
  110. 3040 [153]"loadopen  (NULL)urn your printer on and press (NULL)(NULL)atnlenvalopen."
  111. 3050 [161]a$:[139]a$[179][177]" "[167]3050
  112. 3060 [137]3020
  113. 3070 [153]"open (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL)open to print the graphic, or
  114. 3080 print" press [211][208][193][195][197][159] to go back to the graphic.
  115. 3090 [161]a$:[139]a$[179][177]" "[175]a$[179][177][199](13)[167]3090
  116. 3100 [139]a$[178][199](13)[167][151]49162,96:[158]hgr:[158]49152:[142]
  117. 3110 [158]hgr:[142]
  118. 10000 [159]15,8,15,"s0:doodle show":[160]15:[148]"doodle show",8:[128]
  119. 50000 q9$[178]"":u9[178]53280:[151]198,0
  120. 50010 [161]a$
  121. 50020 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]50010
  122. 50030 [139]a$[178][199](13)[167][153]" ":[142]
  123. 50040 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50080
  124. 50050 [139][195](q9$)[177][178]l9%[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]50010
  125. 50060 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]50010
  126. 50070 q9$[178]q9$[170]a$
  127. 50080 [153]""a$;:[137]50010
  128. 60000 [153]"loadfor          str$ (NULL) (NULL) str$ (NULL) val (NULL)    (NULL) asc"
  129. 60002 [153]" asc atn (NULL) (NULL) (NULL) (NULL)    (NULL) (NULL) atn str$ (NULL) (NULL) atn (NULL) right$ (NULL) val (NULL)"
  130. 60004 [153]"cont    "[199](34)"peekoredom breeds bombast."[199](34)
  131. 60006 [153][163]22)"(NULL)nees lenalhoon"
  132. 60009 b9$[178]"                                      "
  133. 60010 [151]214,14:[153]:[153]"  listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefreprint#"
  134. 60020 [129]i[178]0[164]7:[153]b9$:[130]:[153]"  pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  135. 60030 b9$(0)[178]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) str$(NULL)(NULL)str$(NULL)val(NULL)"
  136. 60040 b9$(1)[178]"by ascamous (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)ites"
  137. 60050 b9$(2)[178]"(NULL)1.0 (len) 1991 by (NULL)oftdisk, right$nc."
  138. 60060 b9$(3)[178]"(NULL)ublished on (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #87"
  139. 60070 b9$(4)[178]"(NULL)ubscriptions 1-800-831-2694"
  140. 60080 b9$(5)[178]"atnll (NULL)ights (NULL)eserved"
  141. 60090 [151]214,16:[153]:[129]i[178]0[164]5:[153][163]20[171]([195](b9$(i))[173]2))""b9$(i):[130]
  142. 60095 [142]
  143.